gusucode.com > 耐品图片管理系统 标准版A > 耐品图片管理系统 标准版A/AppPurview.asp

    <!--#include file="Head.asp"-->
<!--#include file="Function.asp"-->
<%
'===============================================================
' 著作权号：中国国家版权局著作权登记号2004SR07385
' 版权所有：深圳市耐品科技开发有限公司 www.naipin.com
' 联系电话：0755-26611119　81234844　81234845
' 联系手机：13316911914
' 联系邮箱：naipin@naipin.com
'===============================================================

With Netout
	.Load("Comm")
	if .UserName = "" then
		.ShowErr(6)
		Response.End()
	end if
	IF .Master Then
		.ShowError("您目前的身份已经是管理员！")
		Response.End()	
	End IF
	Action=request.Form("Action")
	if Action="Send" then
		Desc = .HtmlEncode(Request.Form("MailBody"),True)
		Set rs = server.CreateObject("adodb.recordset")
		rs.open "Select top 1 * From NT_AppPur",Conn,1,3
		rs.AddNew
		rs("AppUser") = .UserName
		rs("AppDesc") = Desc
		rs.Update
		rs.Close
		Set rs = Nothing
		Response.Write("<script>alert('"&.theCode(6)&"');history.back(-1);</script>")
		Response.End()
	end if
	MyHtml = Replace(Replace(Split(Template.Html(0),"||")(0),"{?left_beg}",""),"{?left_end}","")
	MyHtml = Replace(MyHtml,"{?RightInfo}",Template.Html(5))
	MyHtml = replace(MyHtml,"{?LeftInfo}",Replace(Template.Html(1),"{?QuickLaunch}",QuickLaunch()))
	MyHtml = replace(.TempHtml,"{?CurrentScript}",MyHtml)
	Response.Write(MyHtml)
End With
set Template = Nothing
set Netout = Nothing
%>